home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / totsrc.zip / TOTKEY.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  4KB  |  100 lines
  1. {               Copyright 1991 TechnoJock Software, Inc.               }
  2. {                          All Rights Reserved                         }
  3. {                         Restricted by License                        }
  4.  
  5. {                             Build # 1.00                             }
  6.  
  7. Unit totKEY;
  8. {$I TOTFLAGS.INC}
  9.  
  10. {
  11.   Notes:
  12.  
  13. }
  14. INTERFACE
  15.  
  16. CONST
  17.  
  18.    kA=097;kB=098;kC=099;kD=100;kE=101;kF=102;kG=103;
  19.    kH=104;kI=105;kJ=106;kK=107;kL=108;kM=109;kN=110;
  20.    kO=111;kP=112;kQ=113;kR=114;kS=115;kT=116;kU=117;
  21.    kV=118;kW=119;kX=120;kY=121;kZ=122;                    
  22.     
  23.    kSftA=065;kSftB=066;kSftC=067;kSftD=068;kSftE=069;kSftF=070;kSftG=071;
  24.    kSftH=072;kSftI=073;kSftJ=074;kSftK=075;kSftL=076;kSftM=077;kSftN=078;
  25.    kSftO=079;kSftP=080;kSftQ=081;kSftR=082;kSftS=083;kSftT=084;kSftU=085;
  26.    kSftV=086;kSftW=087;kSftX=088;kSftY=089;kSftZ=090;                    
  27.     
  28.    kAltA=286;kAltB=304;kAltC=302;kAltD=288;kAltE=274;kAltF=289;kAltG=290;
  29.    kAltH=291;kAltI=279;kAltJ=292;kAltK=293;kAltL=294;kAltM=306;kAltN=305;
  30.    kAltO=280;kAltP=281;kAltQ=272;kAltR=275;kAltS=287;kAltT=276;kAltU=278;
  31.    kAltV=303;kAltW=273;kAltX=301;kAltY=277;kAltZ=300;                    
  32.         
  33.    kCtlA=001;kCtlB=002;kCtlC=003;kCtlD=004;kCtlE=005;kCtlF=006;kCtlG=007;
  34.    kCtlH=008;kCtlI=009;kCtlJ=010;kCtlK=011;kCtlL=012;kCtlM=013;kCtlN=014;
  35.    kCtlO=015;kCtlP=016;kCtlQ=017;kCtlR=018;kCtlS=019;kCtlT=020;kCtlU=021;
  36.    kCtlV=022;kCtlW=023;kCtlX=024;kCtlY=025;kCtlZ=026;                    
  37.         
  38.    k1=49;k2=50;k3=51;k4=52;k5=53;k6=54;k7=55;k8=56;k9=57;k0=48;
  39.    kMinus=45;kEquals=61;
  40.  
  41.    kSft1=33;kSft2=64;kSft3=35;kSft4=36;kSft5=37;kSft6=94;kSft7=38;kSft8=42;
  42.    kSft9=40;kSft0=41;kSftMinus=95;kSftEquals=43;
  43.  
  44.    kAlt1=376;kAlt2=377;kAlt3=378;kAlt4=379;kAlt5=380;kAlt6=381;kAlt7=382;
  45.    kAlt8=383;kAlt9=384;kAlt0=385;kAltMinus=386;kAltEquals=387;
  46.  
  47.    kCtl2=259;kCtl6=30;kCtlMinus=31;
  48.  
  49.    kF1=315;kF2=316;kF3=317;kF4=318;kF5=319;kF6=320;
  50.    kF7=321;kF8=322;kF9=323;kF10=324;kF11=389;kF12=390;
  51.  
  52.    kSftF1=340;kSftF2=341;kSftF3=342;kSftF4=343;kSftF5=344;kSftF6=345;
  53.    kSftF7=346;kSftF8=347;kSftF9=348;kSftF10=349;kSftF11=391;kSftF12=392;
  54.  
  55.    kAltF1=360;kAltF2=361;kAltF3=362;kAltF4=363;kAltF5=364;kAltF6=365;
  56.    kAltF7=366;kAltF8=367;kAltF9=368;kAltF10=369;kAltF11=395;kAltF12=396;
  57.  
  58.    kCtlF1=350;kCtlF2=351;kCtlF3=352;kCtlF4=353;kCtlF5=354;kCtlF6=355;
  59.    kCtlF7=356;kCtlF8=357;kCtlF9=358;kCtlF10=359;kCtlF11=393;kCtlF12=394;
  60.  
  61.    kBkSp=8;kUp=328;kDown=336;kLeft=331;kRight=333;kEnd=335;kHome=327;
  62.    kPgUp=329;kPgDn=337;kIns=338;kDel=339;kTab=9;kEsc=27;kEnter=13;
  63.  
  64.    kSftBkSp=8;kSftUp=428;kSftDown=436;kSftLeft=431;kSftRight=433;
  65.    kSftEnd=435;kSftHome=427;kSftPgUp=429;kSftPgDn=437;kSftIns=261;
  66.    kSftDel=263;kSftTab=271;kSftEsc=27;kSftEnter=13;
  67.  
  68.    kAltBkSp=270;kAltUp=408;kAltDown=416;kAltLeft=411;kAltRight=413;
  69.    kAltEnd=415;kAltHome=407;kAltPgUp=409;kAltPgDn=417;kAltIns=418;
  70.    kAltDel=419;kAltTab=421;kAltEsc=257;kAltEnter=284;
  71.  
  72.    kCtlBkSp=127;kCtlUp=397;kCtlDown=401;kCtlLeft=371;kCtlRight=372;
  73.    kCtlEnd=373;kCtlHome=375;kCtlPgUp=388;kCtlPgDn=374;kCtlIns=260;
  74.    kCtlDel=262;kCtlTab=404;kCtlEsc=27;kCtlEnter=10;
  75.  
  76.    mLeft=513;mRight=514;mMiddle=515;mLeftRight=516;mLeftMiddle=517;
  77.    mMiddleRight=518;mAll=519;mLeftDouble=523;mRightDouble=524;
  78.    mMiddleDouble=525;
  79.  
  80.    mDragUp=584;mDragDown=592;mDragLeft=589;mDragRight=587;
  81.  
  82.    wClose=600;wMove=601;wStretch=602;wScrollUp=610;wScrollDown=611;
  83.    wScrollLeft=612;wScrollRight=613;wVertElevator=614;wHorizElevator=615;
  84.  
  85. procedure KeyInit;
  86.  
  87.  
  88. IMPLEMENTATION
  89.  
  90. procedure KeyInit;
  91. {}
  92. begin end;
  93.  
  94. {end of unit - add intialization routines below}
  95. {$IFNDEF OVERLAY}
  96. begin
  97.    KeyInit;
  98. {$ENDIF}
  99. end.
  100.